5 PRINT"[147]"
6 d#"SIMON'S BASIC JOYSTICKABFRAGE"
7 PRINT
10 X=dQ
20 IF X=128THEN PRINT"[147]":PRINTd(17,5)"[158]FEUER":PRINTd(17,7)X
25 POKE646,1
30 IF X=  1THEN PRINT"[147]":PRINTd(17,8)"OBEN":PRINTd(18,10)X
40 IF X=  2THEN PRINT"[147]":PRINTd(25,10)"RECHTS OBEN":PRINTd(29,12)X
50 IF X=  3THEN PRINT"[147]":PRINTd(28,15)"RECHTS":PRINTd(30,17)X
60 IF X=  4THEN PRINT"[147]":PRINTd(25,19)"RECHTS UNTEN":PRINTd(30,21)X
70 IF X=  5THEN PRINT"[147]":PRINTd(17,18)"UNTEN":PRINTd(18,20)X
78 IF X=  6THEN PRINT"[147]":PRINTd( 5,18)"LINKS UNTEN":PRINTd(9,20)X
80 IF X=  7THEN PRINT"[147]":PRINTd( 8,15)"LINKS":PRINTd(9,17)X
90 IF X=  8THEN PRINT"[147]":PRINTd( 5,10)"LINKS OBEN":PRINTd(9,12)X
100 IF X>128THEN PRINTd(12,22)"+FEUER";X
110 GOTO 10